################################################################################
# Judicial Ideology as Text -- Replication (SOURCE)
# Truscott & Romano
# Updated February 2025
################################################################################


################################################################################
# Necessary Packages & Dependencies
################################################################################

library(dplyr); library(quanteda.textmodels); library(quanteda); library(ggplot2); library(stargazer); library(tidyr); library(ggplot2)


################################################################################
# Wordshoal Data
################################################################################

scotusDFM <- get(load('data/scotusDFM.rdata')) # Document Frequency Matrix (w/ Docvars)
scotusWFM <- get(load('data/scotusWFM.rdata')) # Word Frequency Matrix (w/ Docvars)
mq <- get(load('data/MQ.rdata')) # 2024 Martin-Quinn
decisions <- get(load('data/decisions_combined_preWFM.rdata')) # Full Decisions List (Post-Justia)
wordshoals_static <- get(load('data/wordshoals_list_static.rdata')) # Wordshoal Estimates w/ Weights (Static)
wordshoals_dynamic <- get(load('data/wordshoals_list_dynamic.rdata')) # Wordshoal Estimates w/ Weights (Dynamic)
rm(wordshoals, wordshoals_list_dynamic)


